home *** CD-ROM | disk | FTP | other *** search
/ PC Home 109 / PC Home 109.iso / data1.cab / Program_Files / quiz.dxr / 00045.ls < prev    next >
Encoding:
Text File  |  2001-03-02  |  929 b   |  24 lines
  1. on exitFrame
  2.   set NumberPositions to [5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
  3.   set NumberList to [51, 52, 53, 54, 55, 56, 57, 58, 59, 60]
  4.   set fieldPlace to [48, 49, 50, 51, 52, 53, 54, 55, 56, 57]
  5.   handcursor(3)
  6.   handcursor(4)
  7.   repeat with n = 1 to 10
  8.     set the textSize of member getAt(fieldPlace, n) to 18
  9.     set the textStyle of member getAt(fieldPlace, n) to "bold"
  10.   end repeat
  11.   set ScoreList to getScoreList(10, "harder")
  12.   set Scores to getScoreValues(10, "harder")
  13.   repeat with n = 1 to 10
  14.     if (getAt(ScoreList, n) <> EMPTY) and (getAt(Scores, n) <> 0) then
  15.       set the memberNum of sprite getAt(NumberPositions, n) to getAt(NumberList, getAt(Scores, n))
  16.       set the text of field getAt(fieldPlace, n) to getAt(ScoreList, n)
  17.       next repeat
  18.     end if
  19.     set the memberNum of sprite getAt(NumberPositions, n) to 61
  20.     set the text of field getAt(fieldPlace, n) to EMPTY
  21.   end repeat
  22.   go(the frame)
  23. end
  24.